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Bas 


FFFFFFFFFRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTTT LLet 
FFFFFRFFRRFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTTTTTTTTFT Lie 
FFFFFRFRRRFFFFFE 000000000 RRRRRRRRRRRR RRRRRRRRRRRR TITTTTITTTTTTTT §=LtL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFE 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 
FFFFFFFFFFFF 000 000 RRRRRRRRRRRR RRRRRRRRRRRR TTT LLL 

FFF 000 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR = =RRR TTT LLL 

FFF 000 RRR RRR RRR = RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 000 000 RRR RRR RRR RRR TTT LLL 

FFF 0 000 RRR RRR RRR RRR TTT LLL 

FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLLLLLLLELLLL 
FFF 000000000 RRR RRR RRR RRR TTT LLLLELLLLLLLLLL 
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FFFFFFFFFE 000000 RRRRRRRR cccccccce «(WV VV TTTTTTTTTT RRRRRRRR TITTTTTTIT 
FFFFFFFFFF 000000 RRRRRRRR cecccccc =~ VV TTTTTTTTTT RRRRRRRR TTTTTTTTIT 

FF 00 00 RR RR CC VV VV TT RR RR TT 

FF 00 OO RR RR CC VV VV TT RR RR TT 

FF 00 OO RA RR CC VV VV TT RR RR TT 

FF 00 0O RR RR CC VV VV TT RR RR TT 

FFFFFFFF 00 O00 RRRRRRRR cc VV VV TT RRRRRRRR TT 

FFFFFFFF 00 00 RRRRRRRR cc VV VV TT RRRRRRRR TT 

FF 00 00 RR RR cc VV VV TT RR RR TT 

FF 00 OO RR RR cc VV VV TT RR RR TT 

FF 00 00 RR RR cc VV VV TT RR RR TT cece 
FF 00 00 RR RR cc VV VV TT RR RR TT cove 
FF 000000 RR RR cccccccc VV TT RR RR TT eeee 
FF 000000 RR RR ccccccce VV TT RR RR TT eeee 
LL IIIIII SSSSSSSS 

LL IIIT] SSSSSSSS 

LL I] SS 

LL II SS 

LL I] SS 

LL I] SS 

LL I] SSSSSS 

LL I] SSSSSS 

LL I] SS 

LL I] SS 

LL I] SS 

LL I] SS 

LLLLLLLLLL III] SSSSSSSS 

LLLLLLLLLL HII! SSSSSSSS 
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T 
of contents 
‘¢ 4 Edit wistecy 
(3) 7 DECLARATION 
(4) ; FOR cvToxty - Convert real to text 
(5) FORSCVT_x_TF = Fixed point format 
(9) iy FORSCVT_x TG = Convert real to yext - G format 
(7) 48 INITIALIZE = Analyze argument List 
(8) 517 INITIALIZE_F = Analyze argument List for F format 
(9) 541 DIGITS_OUT 
(10) 618 FINISH 
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- Convert Real (F, D, G, H) to Text 15-SEP-1984 5 VAX/VMS Ma v04-0 P 
* 6-SEP-1984 t 93: $2: 33 FORRTL.SR RCIF FOR WOVTRY «MARS 1 _ d) 
TITLE PORSCyIRT - Convert Real (F to Text 
SIDENT = /1-017/ : Fite! PoRCVTAT MAR Edit: SBL1017 


—MmARAABRBARARLALASAASSALALALALS SELES ALAL ESSE EES SEES SEES RRR EES E EECA REESE ESSA SY 


COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED 


COOoooooooooooocoo 
pole olol ele elololololololololo) 


SOOOCooooooooooooooooooooo 


8 1 
ee 
0 4 
4 
3 * 
1 tk 7 
® 
ae ; 
3* * 
6 11 ;* THIS SOFTWARE IS eyen eee UNDER A LICENSE AND MAY BE USED AND sorree * 
0 § 3* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH at SE AND WITH THE * 
0 15 ;* INCLUSION OF THE ABOVE pith NOTICE. THIS SOFT WARE OR ANY OTHER * 
0 14 ;* COPIES THEREOF ot NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0 15 ;* OTHER PERSON. O TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
4 1 :* TRANSFERRED. * 
P+ ® 
000 18 ;* THE gd pte IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
000 19 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
444 st - CORPORATION. * 
6 * 
000 $6 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
4 $7 :* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
é oe 
0000 25 ;* * 
800 $8 : FERRARA EERE ARETE AAR ERA AEA AA AAA RAAT AAA AAA A AAA A EEE 
0000 «(58 
0000 $9 p++ 
i$ , ; FACILITY: FORTRAN Language Support Library 
9000 2 : ABSTRACT: 
0000 34 : Routines to convert F and H if optdy values to text representations. 
B00 3 3 This module supports FORTREN D, E. F and formatting. 
0000 7 : ENVIRONMENT: User Mode, AST Reentrant 
0000 . 3 
0000 9 ;-- 
944 rt ; AUTHOR: Steven B. Lionel, CREATION DATE: 19-Jun-1979 
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poEreyees - sores Real (F, D, G, H) to Text ots sae 9 9382332 Yen Macro V04-00 
1-01 Edit History 66-SEP-1984 10:54:25 (CFORRTL.SRCJFORCVTRT.MAR;1 
O99 $3 -SBTTL Edit History 
a9 45; 1- 6} - Original. SBL 19-Jun-1979 
8 $ 3; 1- § = Remove STRING_LEN from stack frame. SBL 11-Jul-1979 
00 47 ; 1- 0 - Fix bug in rounding. SBL 6-Jul-1979 
0000 $8 ; 1-004 = Keep sign on F underflow to zero. SBL 16-July-1979 
0000 49 ; 1-005 - Fix bug in G format Ain Hs with ers inlint. SBL saeulye ler? 
44 50 ; 1-007 - Negate 1-004, that is not the desired behavior. SBL 20-Aug-1979 
000 51 ; 1-008 = Speed optimizations. Use CASE for argument gickys. Use 
0000 26 ; fast way of computing temp string length. SBi 27-Dec-1979 
0000 53; 1-009 - Use correct Limit in CASE statements. SBL gereae~t ere 
B88 ee : 1-319 - Use signed branch on CASEB. SBL 31-Dec-197 
0 5 ; 1-011 - Do correct thing for >128 arguments. SBL 31-Dec-1979 
0000 2$ ; 1-012 = Allow the digits-in-fract parameter to be optional, as in V1. 
0000 57 ; SBL 11-June-19 
0000 58 ; 1-013 = Fix bug in 1-012 where FLAGS wasn't always cleared correctly. 
0000 59 ; SBL 27-June-1980 
0000 60 ; 1-014 = If V_ERR_OFLO is set, indicating Ew.dEe or Gw.dEe editing, 
0000 61 ; return gocor if exponent overflows (don't drop the letter E). 
0000 6¢ 3 SPR 11-38351. JAW 15-Jun-1981 
0000 63 ; 1-015 = Return error if F or G-format width is too small. SPR 11-46071 
0000 64 ; SBL 4-May-198 : 
0000 65 ; 1-016 = Don't force leading zero if there are any other digits at all 
0000 66 ; in the output. SBL 6-0ct-19 
444 of ; 1-017 = Use general addressing mode. Add F routines. SBL 29-Oct-1982 


oe ee ee 


é 


foRsevTat 
1-01 


o1 
m 
oOo 
cro 
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oOo TTR NTH HHH 
QO - RT TH HSH HH HHH HSH 
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3. Not-in-common 


~SBTTL DECLARATIONS 


; INCLUDE FILES: 


> EXTERNAL DECLARATIONS: 


~-DSABL GBL 


MACROS: 


: EQUATED SYMBOLS: 
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S 
725 CFORRTL.SRCJFORCVTRT.MAR; 1 


Prevent undeclared 
symbols from eit 
automatically global. 
Kernel convert routine 
For D floating 

For G floating 

For H floating 

Error code 


REGMASK = “M<R2, R3, R4, R5, Rb, R7, RB> 


; Stack frame offsets from FP 
33; Common frame 
PACK 


“uu 
—— 5 


OWN STORAGE: 


: PSECT DECLARATIONS: 


for kernel convert routine 


ee 


s 
Temp for packed representation 
Flags for outer and inner routines 
ZigniTicagt digits — 
ag ress of temp string 
gn 
Decimal exponent 
Offset 
Right round point 
Common frame size 


Exponent Letter to use 

Saved scale factor 

Saved digits in integer 

Saved digits in exponent 

Saved digits in fraction 

Number of Leading digits 

Number of zeroes after decimal pt. 
Number of trailing digits 

Frame size 


Flag to kernel routine 


Macro V04-00 e 
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= Conver 
DECLARAT 


folgel (F. De Gm to Toke!) T§agEp-igge 35:42:35 PARAMS Masse, 


127; 
0000 1 } -PSECT _FORSCODE PIC, USR, CON, REL, LCL, SHR, - 
: 4 EXE, R 


D, NOWRT. LONG 
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RCV 
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y = Convert real to text 
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i=] 
zaoa 
wo 
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F (fixed point) 


; CALLING SEQUENCE: 
status.wlc.v = 


OQOooooooooooooo 
SOOCoooooooooooo 1 


where: 


INPUT PARAMETERS: 


00000004 value 

0000000C digits_in_fract 
00000010 scale_factor 
00000014 digits_in_int 
00000018 digits_in_exp 


IMPLICIT INPUTS: 
NONE 


SOOOCOOCOOSOSCOOSOSOCSOSCOOSOSOOOSOOSOSOSOSOSOOOCOOOOOC OOOO SOO OOOO OCOOOOCOOOOOOCOO 
SOOOCCOCOOOCOCSCSOCO SOOO SCOSOOSOSOSOSOSOSOSOOOOCOOOOCOOCOOCOOOOOCOO 
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to text representations. 
FORTRAN format types and by data type. 


The FORTRAN format t 
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— -SBTTL FORSCVT_x_Ty = Convert real to text 
; FUNCTIONAL DESCRIPTION: 


These routines perform conversion of floating values 
They are divided according to the 


es are D/E (exponential), 
(fixed or exponential). 


x is the datatype, either F 
y is the format, one of D, 


E, F 


Sete Se Se Se Ge Be Ge Se Be Se Se Se Ge Se Se Se Se Se Ge Se Se Be Se Se Se Se Se 


-r, Out_string.wt.ds 

in_fract.rlu.v 

factor.rl.v 

_in_int.rlu.v | 

_inlexp.rlu.yv 

_flags.rlu.vjJjJ)) 
| 


D, GoruH 
and G 


The address of the floating value to be co) 
The number of digits in the fraction 

cot beet Optional, assumed 0. 
ptional, assumed 6. 

digits_in_int is not present, 

scale factor takes on the 
FORTRAN semantics, i.e. indicating 
the true scale factor on F format 

or the digits_in_int for D, E and G 
formats. The scale factor effect 


is that the externally represented | 


number equals the internally 

represented number multiplied 

by 10**scale_factor. 

The number of digits in the 
integer part of an exponentially 
formatted value. Optional, 
assumed 0. Ignored for F 

format. 

The number of digits in the 

exponent field. Optional, 

assumed 2. If the Sxponent ; 
overflows this field by 1 digit, 
the exponent letter is removed. 
Optional, assumed 0. 

Force + on positive values 
Exponent field width overflow 

is an error. 
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al (F, D, G, H) to Text 15-SEP-1984 23:49:35 VAX/VMS Macro v04-00 Page 6 
= Convert real to text boseP-1984 $9 :$2 338 LPORRTL. sae RCJFORCVTRT.MAR; 1 . (4) 
183 J 
139 3 OUTPUT PARAMETERS: 
135 : out string = 8 ; The address of the descri oor of the resul 
19 ; string. The ese ine must 
132 ; class S$. (Scalar) 
196 : IMPLICIT OUTPUTS: 
198 ; NONE 
199 ; 
89 : COMPLETION CODES: 
¢ 3 SS$_ NORMAL = Successful completion 
03 ; FORS_OUTCONERR = Output conversion error. The value did not 
be ; fit in the given string. 
06 ; SIDE EFFECTS: 
08 ; SS$_ROPRAND = If the value to be converted is a reserved 
3 ; floating operand. 
11 de 
$13 ENTRY FORSCVT_F_TE, REGMASK 
214 MOVAB FRAME(FP)> SP ; Set up stack frame 
215 #*A/E/, EXP_LETTER(FP) ; Use letter E 
216 MOVAB G*OTSSS$CVT_F_T_R8, R8 =; Convert routine address 
sii BRW COMMON_E 
$19 FORSCNV_OUT_E:: 
$39 -ENTRY FORSCVT_D_TE, REGMASK 
21 MOVAR FRAMECFR)> SP ; Set up stack frame 
5s¢ MOovVB #*A/E/, EXP_LETTER(FP) ; Use letter E 
22 MOVAB G*OTS$$CVT vT_5 T_R8, R8  ; Convert routine address 
$s¢ BRB COMMON_E 
226 ENTRY ore G_ e REGMASK 
227 MOVAB FRAME (FP) > ; Set up stack frame 
228 MOVE WoATE? ekP at et ; Use letter E 
$$ MOVAB GrunssSCVT_G_T_R _R8, R8 = ; Convert routine address 
$3 BRB COMMON_E 
23 -ENTRY FORSCVT_H_TE, REGMASK 
MOVAB FRAME(FP); SP ; Set up stack frame 
234 M #°A/E/, EXP_LETTER(FP) ; Use letter E 
235 MOVAB G*OTSS$CVT_A_T_R8, RB  ; Convert routine address 
$$ COMMON_E 
Hs -ENTRY FORSCVT_F_TD, REGMASK 
9 VAB  -FRAME(FP)> SP ; Set up stack frame 
40 OvB #*A/D/, EXP_LETTER(FP) ; Use letter D 
41 MOVAB G*OTSSSCVT_F_T_R8, RB; Convert routine address 
4 BRB COMMON_E 
44 FORSCNV_OUT_D:: 
45 .ENTRY FORSCVT_D_TD, REGMASK 
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FORSCVTRT - Convert Real ( -SEP 4 23:49: 2 AX/VMS Macro V04-00 Page 7 
101) FORSCVT_x_Ty = Convert real to text 6-SEP 138 0:54: FORRTL.SRCJFORCVTRT .MAR; 1 : (4) | 
SE BC AD oF 067 6 MOVAB FRAME(FP), SP ; Set up stack frame 
DB AD 44 BF 9 38 4 MOVB #*A/D/, EXP Lee RB ; Use letter D 
58 00000000’ GF H 48 MOVAB G*OTSS$CVT_B_T_R : Convert routine address 
26 B35 25 BRB COMMON_E 
O1FC 079 51 -ENTRY FORSCVT_G_TD, REGMASK 
5E ¢ AD 4 078 3g MOVAB FRAME(FP)> SP ; Set up stack frame 
DB A 44 BF 9 O7F 5 MOVB #*A/D/, EXP a Ms ets ; Use letter D 
58 00000000" GF 9E 0084 254 MOVAB G*OTS$$CVT_G_T_R8, RB ; Convert routine address 
11 00 ; 35 BRB COMMON_E 
O1FC st 3) ENTRY FORSCVT_H_TD, REGMASK 
SE Bt AD 9E F 8 MOVAB FRAME(FP)> SP ; Set up stack frame 
DB A 4 8F 90 0093 59 MOVB #*A/D/, EXP_LETTER(FP) ; Use letter D 
58 00000000" GF 9& 0098 60 MOVAB G*OTSS$CVT_A_ TRB, R8 ; Convert routine address 
00 11 OO9F 261 BRB COMMON_E 
00A1 $6 
Q0A1 65 COMMON_E: 
0298 30 OQOA1 64 BSBW INITIALIZE ; Analyze argument List 
AD CB AD DO QO0A4 65 MOVL S_DF(FP), SIG_DIGITS(FP) Initial number of sig. digits 
DO AD DS QOA9 266 TSTL S_DICFP) 3 Digits. in, int >=0? 
OF 13 OOAC 67 BEQL 10$ + Equal fo zero 
OA 14 OQOAE 68 BGTR 5% ; Greater than zero 
FO AD DO AD CO 9080 69 ADDL2 S_DI(FP), SIG_DIGITS(FP) 
06 14 0085 70 BGTR 10$ ; Must be positive 
038D 31 0087 $1 BRW ERROR ; No Significant digits! 
FO AD D6 OQOBA 5$ INCL SIG_DIGITS(FP) ; Get 1 more signit cant ptigit 
52 FO AD 13 C1 QOBD 273 10$ ADDLS #19, SIG_DIGITS(FP), R2 ; Find temp_string length 
a. ae. Bare 74 SUBL2 R2, SP ; Create string on stack 
EC AD 5E p00 00C 75 MOVL SP, STRING_ADDR(FP) ; Temp string address 
5 04 AC 00 00C9 76 MOVL value (AP), ~RO ; Value address 
51 5D 00 O0CD 277 MOVL FP, R1 ; Local frame address ; 
68 16 0000 278 JSB (R8) Call kernel conversion routine 
EC AD EO AD CO 00D2 444 ADDL2 OFFSET(FP), STRING appr FP) ; Get first character pos. 
E4 AD D4 AD CO Q0D7 80 ADDL2 S_SCALE(FP PS, DEC _ERP(FP) ; Adjust exponent for scale 
00DC 281 E_CONVERT: 
E4 AD DO AD C2 OODC $e¢ SUBL2 S_DICFP), DEC_EXP(FP) ; Adjust for digits in int 
E8 AD 05 poe} 28 TSTL STGN(FP) : Is value zero? 
03 12 OOF4 284 BNEQ 20$ : 
E4 AD D& QOE6 285 CLRL DEC_EXP(FP) Yes, exponent is zero 
BC AD C8 AD dO paee 286 208: MOVL S_DF(FP), TRAIL DIGITS (FP) 
C4 AD DO AD 00 433 287 MOVL S“DICFP), LEAD_BIGITS(FP) ; Number of leading digits 
11 14 OOF 88 BGTR 25$ ; Negative? 
C4 AD D4 pee 94 CLRL LEAD_DIGITS(FP) 3; Yes 
CO AD DOAD CE F8 0 MNEG S_DITFP), LEAD _ZERO(FP) : Wuaber of zeroes after dec. pt. 
BC AD DOAD CO OOFD 291 ADDL 3 DICFP), TRAIC_DIGITS(FP 
12 14 96 3 BGTR 0$ 3; Must be positive 
OD 11 0104 9 BRB 298 : Otherwise error 
CO AD D4 0106 94 258: CLRL LEAD_ZERO(FP) No leading zeroes 
BC AD DO AD C2 0109 295 SUBL2 S§_DITFP), TRAIL ssasteish 
BC AD D6 01 E 3 INCL  TRAIL_DIGITS(FPY 
9 18 O11 9 BGEQ 30$ ; Can't be negative 
0331 4 113 98 29%: BRW ERROR 
et 0 0116 99 30S: BSBW DIGITS OUT ; Output digits 
83 OD ry 90 0119 BY MOVB EXP_ LETTER(FP), (R3)+ Bove exponent letter 
54 5 DO 011D 1 MOVL R3,°R4 ave address 
F8 AD OS £4 AD F9 0120 02 CVTLP DEC LEXPCFP), #5, PACKED (EP) ; Convert exponent 
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FORSCVTRT = Convert Real (F, D, 13° SEP=1984 AX/VMS Macro v04-00 Page 
eit 6 FORSCVT_x_Ty - Convert real to text mii9 =}382 18; $2: 33 FORRTL.SRCJFORCVTRT.MAR; 1 ° dy 
64 CC AD FB AD 5 08 1 6 3 CVTPS $2 PACKED(FP), S_DE(FP), (R4) 
if 12D 4 BVC : Overflow? 
OE F4 AD O01 CE 12F 5 BBS #V_ERR_OFLO, FLAGS(FP), $48 Yes: if exponent field 
134 : ; wid dth over flow is an error, 
134 8 : don't drop t 
cc 8p +] 134 $ INCL S_DECFP) ; Try another sige” 
5 D 137 0 DECL p, 
63 CC AD FB AD 05 08 0139 10 CVTPS # PACKED(FP), S_DE(FP), (R3) 
03 1C O14 11 BVC 35§ 3; No overflow 
0302 31 ge 1 eee! BRW ERROR ; Overflow 
o> 6 Ct ap CO 014 13 35$: ADDL2 S_DE(FP), R3 ; Move string pointer 
; 6 0149 14 INCL R3 
0308 1 0148 15 BRW FINISH ; Finish up string 


—— 
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FORSCVTRT - Convert Real (F, D, G, H) to Text 15-SEP-1984 AX/VMS Macro v04-00 Page 
eit FORSCVT_x_TF = Fixed point format 6-SEP-1984 93:22 +32 FORRTL.SRCJFORCVTRT.MAR; 1 ° 
| i? «-SBTTL FORSCVT_x_TF = Fixed point format 
O1FC 135 19 -ENTRY FORSCVT_F_TF, REGMASK 
SE BC AD 9E 13 0 MOVAB FRAME(FP)? SP ; Set up stack frame 
58 00000000'GF 9E 0154 1 MOVAB G* orssscvi_ F_T_R8, R8 =: Convert routine address 
20 11 138 ¢ BRB COMMO 
15D 4 FORSCNV_OUT_F:: 
OFC 15D 5 ENTRY FORSCVT D_TF, REGMASK 
SE BC AD 9E 015F 6 MOVAB FRAME(FP)> SP ; Set up stack frame 
58  Q0000000'GF 9E& 0163 MOVAB G*OTS$$CVT _D_T_R8, R8 ; Convert routine address 
1E 11 3198 8 BRS COMMON_F 
O1FC 016C 0 -ENTRY FORSCVT_G_TF, REGMASK 
SE BC AD 9E O16 1 VAB  FRAME(FP)> SP : Set up stack frame 
58 Q0000000'GF 9€& 017 3 MOVAB G*OTS$$CVT_G_T_RB, R8 ; Convert routine address 
OF 11 o179 33 a COMMON_F 
O1FC 0178 35 -ENTRY FORSCVT_H_TF, REGMASK 
SE BC AD 9E 0170 36 MOVAB FRAME(FP)> SP ; Set up stack frame 
58 Q0000000'GF 9E& 0181 $36 MOVAB G*OTSS$S$CVT -H_T_R8, R8 ; Convert routine address 
00 11 0188 38 B COMMON _F 
018A 339 
018A 340 COMMON_F: 
O1FC 30 OBA 341 BSBW INITIALIZE_F ; mares argument List 
D8 ap 94 018D 305 LRB EXP_LETTERTFP ndicates F format 
FO AD 08 8B 3c) 60190 4 MOVZWL aout string(AP) S1G_ picirgirrs 3; Get field. weet 
FO AD D7 0195 344 ECL SIG_BIGITS(FP) ; Max number of $i9- digits 
69 15 0198 345 BLEQ FG_ERROR z No significant digits 
52 FOAD 13 C1 QOI9A 346 ADDL3) #19, SIG_DIGITS(FP), R2 : Calculate temp string size 
SE 52 C2 O19F 367 SUBL2 R2, SP ; Create string on stack 
EC AD 5E DO OQO1A2 348 MOVL SP, STRING_ADDR(FP) : i. address 
F4 AD 02000000 BF CB O1A6 349 BISL #M_RT_ROUND, FLAGS(F " eB: ndicating right round 
DC AD D4 AD CB AD (C1 O1AE 350 ADDL3 S_BFC(FP), S_SCALE(FP), Ri ; Rounding position 
5 04 AC DO 0185 351 MOVL value(APS, RO elas addbecs 
1 5D 00 0189 328 MOVL FP, R1 : Local frame pointer 
68 16 O18C 35 JSB (RB) Do the conversion 
EC AD EO AD co Bik 354 ADDL2 OFFSETCFP), STRING ADDR(EP) ; Get first digit pos. 
E4 AD D4 AD CO O01C3 355 ADDL2 S_SCALE(FPS, DEC_ERP(FP) ; Adjust for scale factor 
01C8 356 F_CONVERT: 
E8 AD D5 0O1C8 57 TSTL SIGN(FP) : Is value zero? 
03 12 O1CB 58 BNEQ 10$ ; If zero 
E4 AD D4 OQ1CD 59 CLRL DEC_EXP(FP) ;_Then exponent is zer 
C4 AD ES A 09 8109 60 10$: MOVL BE QE RPCEPD LEAD_DIGITS(FP) ; Number of leading digits 
0 1 1D 61 BGEQ 20$ : If greater than 
C4 AD D4 0107 6¢ CLRL LEAD _DIGITS(FP) Else no leading digits 
CO AD €4 AD cf Q1DA 63 208: MNEGL BEC _EXPCFP). LEAD_ZERO(FP) 3; Number of zeroes after dec pt. 
03 18 O1DF 64 BGEQ $ : If greater than 0 
CO AD D4 OQ1E1 6 CLRL LEAD_ZERO(FP) ;_Else seeding zeroes 
BC AD c8 AD CO AD C3 1E4 6 30$: SUBL3 LE AD_ZEROCFP), S_DF(FP), TRAIL _DIGITS(FP 
10 14 O1EB 67 BGTR $ ; If not positive 
BC AD D4 prep 68 CLRL TRAIL_DIGITS(FP) ; Then no trailing digits 
CO AD C8 AD 4 fo $3 MOVL S_DF(FP), LEAD _ZERO(FP) 
(4 AD OD iF 0 TSTL LEAD_DIGiTS«FPy ; Any significant digits? 
0 14 O1F8 71 BGTR $ 3 Yes 
—8 AD es ace i CLRL SIGN(FP) 3; No, value is +0 
01AD 0 1FD 73 35$ BSBW DIGITS_OUT ; Format the digits 
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FORSCVTRT - Convert Real (F, D, G, H) to Text 15-SEP- 3: $7: 3 AX/VMS Macro v04-00 Page 11 
et FORSCVT_x_TG = Co nvert real to text - G 6=SEP- 1984 93:42 FORRTL.S SREIFORCVIRT. MAR; 1 . (6) 
0 4 -SBTTL FORSCVT_x_TG = Convert real to text - G format 
O1FC 1 -ENTRY FORSCVT_F_TG, REGMASK 
Bf AD of ¢ MOVAB FRAME (FP)> sp 3; Set up stack frame 
D8 AD 45 BF 9 C MOVB #*A/E/ EXP a 3; Use letter E for E format 
58 00000000" GF 9E 0211 4 MOVAB eourseeg” TF ; Convert routine address 
C 11 18 5 BRB COMM 
O21A 8 
1A 7 FORSCNV_OUT_G:: 
O1FC O21A 88 ENTRY FORSCVT_D_TG, REGMASK 
BC AD 9E O21C 9 MOVAB FRAME(FB)> SP ; Set up stack frame 
D8 AD 45 8F 90 8 $0 90 MOVB #*A/E/, EXP LEB. RB. 3; Use letter E for E format 
58 0000000'GF  9€ 91 MOVAB G*OTSS$$CVT_B_ : Convert routine address 
28 Sid 8 sc 3 BRB COMMON_G 
O1FC O ¢f $90 -ENTRY FORSCVT_G_TG, REGMASK 
SE BC AD 9E 0230 395 MOVAB FRAME(FP)> SP : Set up stack frame 
DBA 45 BF 90 0234 396 MOVB #*A/E/, EXP a 8 aes 3; Use letter E for E format 
58 00000000" A 9E 0239 397 MOVAB groTssécvt_6 TRB, R&B ; Convert routine address 
11 024 398 BRB COMMON_ 
024 399 
O1FC 024 400 ~ENTRY sonscvt H_TG, REGMASK 
5E BC AD 9E 0244 401 MOVAB FRAME (FB); SP ; Set up stack frame 
D8 AD «645 8F 90 0248 ret MOVB #*A/E/ EXP, at a4 3; Use letter E for E format 
58 O0000000'GF 9E& O024D 40 MOVAB gcorseecy _T_R8, R8 ; Convert routine address 
00 11 0254 404 BRB COMM 
0256 405 
0256 406 COMMON_G: 
O0E6 30 0256 407 BSBW INITIALIZE nalyze argument list 
FO AD O08 BC 3C€ 0259 408 MOVZWL aes meg? SIG_ picitscr : Initial number 
» cm Ge € 0626 409 ADDL3 (F R ; Get number needed 
FO AD 50 C2 0263 410 SUBL2 0. $12 EOIGITS CFP) 
9A 15 0267 411 BLEQ FG_ERRO ; No significant digits? 
52 FO AD 13 C1 0269 rat ADDL3) #19, SIG_DIGITS(FP), R2 : Calculate temp string size 
5E 52 C2 Q26E 41 SUBL2 : Create string on stack 
EC AD 5E DO 0271 414 OVL SP. STRING_ADDR(FP) : String address 
F4 AD 01000000 8F CB 0275 415 BISL aM TRUNCATE, FLAGS(FP) ; Don't round 
50 04 AC 00 O027D 416 MOVL vatueCA AP), RO : Value address 
51 5D DO 0281 417 MOVL R1 : Leces frame pointer 
68 16 0284 418 JSB FRB) Do the conversion 
EC AD EO AD CO 0286 419 ADOL2 OFFSET(CFP), STRING appr (fp a > first digit pos. 
54 EC AD DO 0288 420 MOVL STRING_ADDR(FP), R : 4 points to it 
E8 AD D5 8F 421 TSTL SIGN(FP) : gree 
63 13 92 4&4 ¢ BEQL USE_E e E format 
E4 AD D4 AD CO 94 4 ADDL2 S_SCALE(FP), DEC_EXP(FP)’ : gh ® for. a . factor 
31 «18 og38 424 GEQ TRY_F ; Value >= 0.1, try conversion 
FFFFFFFF 8F E4 AD D1 8 H 425 CMPL DEC “EXPC(FP), #-1 A it less than 
52 19 O2A 426 LSS USE-E use E cgnvers on 
51 C8 AD DO AD 4. O2A5 427 ADDL3 S DICFP), S_DF(FP) : Ufie it round to 0.1 
64 51 39 6E€ 00 2D O2AB 428 cMPcS #0, (SP). #™A/9/, ar® ‘rip ; .099999...? 
44 12 8 Bi 429 BNEQ ust E ; No, use E format 
35 63 91 0283 430 CMPB (R33, #*A/5S/ : will it round? 
3 19 0286 431 BLSS _—-USE c ; No. use A: format 
AG 1 90 B8 $36 MOVB #*A71/, -1(R nge t ©); 100000 
64 FOAD 30 6€ 00 2 B¢ 43 MOVCS #0, (SP) ALO $1G piGitstr ) 
EC AD D? O2c3 434 DECL STRING _ADDR(F ; Value a, “ie. 0.10000! 
E4 AD D6 C6 435 INCL DEC TENPCEP) 
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FORSCVTRT - Convert Real ( 5-SEP=-1984 23:49:35 VAX/VMS Macro v04-00 Page 
eit FORSCVT_x_TG = Convert real to text - G  6=SEP-1 1382 Bite ie FPORRIL. SREIFORCVTRT MAR: 1 ° 
FEFC 31 c? : § er BRw F_CONVERT 3; Go to F conversion section 
C8 AD E4 AD b1 cc 438 * CMPL DEC_EXPC(FP), S_DF (FP) : Too big for F? 
4 14 D1 439 BGTR USE- -f ; vote — E format 
A 19 it 440 BLSS #7 e F 
64 E4 AD 39 ~=«6E 0 2D D 44) CMPCS # £8). #*A/9/, DEC Xb BS, MtR4) ; 99999...7 
1 12 O2dC 44g BNEQ USE SF yse format 
35 63 91 ODE 44 CMPBs«(R33, #*A/5/ : 9969 ne 99957 
gf 19 El 444 BLSS USE 2 t %. use it as is 
FF AG 31 90 O2E3 445 MOVB = #*A71/ nge t 160000.... 
64 FO AD 30 6€ 00 2C O2E7 446 movcS #0, (SP), ALO/, $1G péristr ), eas) 
EC AD D7? O2EE 447 DECL STRING ADDR (FP Now changed 
E4 AD D6 O2F1 448 INCL 3 C_EXPC(FP 
FOES = 31 8 r rch ~— BRW PEEONVERT ; Go to E conversion routine 
50 CB AD 00 bere 451 ™ MOVL S_DF(FP), RO : Initial reynerae position 
DO AD DS O2FB re TSTL S_DICFP) 3: In which direction to move? 
OA 13 O2FE 45 BEQL 20$ 3 my , Nowhere 
04 19 0300 454 BLSS 10$ 5 
50 06 0302 455 INCL RO : f+] " stgits 
04 11 0304 456 BRB 208 3 continue 
50 DO AD CO 0306 457 10$: ADDL2 S_DI(FP), RO ; Feil! digits 
11 10 O30A 458 20S: BSBB G_ROUND : round the value 
FOCD 31 O30C 459 BRwW E- CONVERT 3; And finish with E conversion 
O30F 460 USE_F: 
50 C8 AD DO O30F 461 MOVL S_DF(FP), RO ; how gery eveits to round after 
08 10 0313 ret BSBB G_ROU 3 round the value 
C8 AD E46 AD (C2 0315 46 SUBL2 DEC_EXP(FP), S_DF(FP) ; Alter format to fit 
FEAB 31 O31A 464 Rw F_CONVERT ; Finish with F conversion 
0310 465 
031D 466 ;+ 
8318 reef ; GROUND rounds the value at the offset pointed to by RO. 
031D 469 G_ROUND: 
52 54 50 C1 Q31D 470 ADDL3 RO, R4, R2 
35 62 91 0321 471 CMPB. ss (R2), #*A/S/ ~—s:-: Round? 
01 18 0324 rf BGEQ 10$ 3; Yes 
05 0326 47 RSB 3 No, exit 
yw Tf basi 474 10$: CMPB -(R2), #*A/9/ 5 Is this a 9? 
05 19 Q32A 475 BLSS : No, finish 
62 30 90 032C 476 MOVB #*A/0/, (R2) ; Make it a zero 
F6 11 O32F 477 BRB 10$ : Continue 
$s 96 0331 478 208: INCB (R2) ; Round up 
54 5 D1 0333 479 CMPL R2, R4 ; Have we moved past digit start? 
06 18 0336 480 BGEQ 3 3: No, exit 
EC AD D7 0338 481 DECL STRING ADDR(FP) ; Yes, move address 
E4 AD D6 0338 +36 INCL DEC_EXP(FP) ; and exponent 
05 O33 483 30$: RSB 3 Exit 
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/forscvtRt = Convert Real (F, S-SEP-1984 23:49:35 VAX/VMS Macro v04-00 
| 1-01 INITIALIZE = Analyze argument List 66-SEP-1984 10:54:25 (CFORRTL.S RCI FORCVTRT.MAR; 1 
; rt ti “ -SBTTL INITIALIZE = Analyze argument List 
F iB ; INITIALIZE looks at the argument List and fills in the appropriate 
F 488 : _values in the local frame. 
F $8? 7= 
F 490 
07 6c 91 O88 Gog TNITIALIZES (AP), 47 7A ts given? 
: rguments given? 
36 33 O82 98 BEQL t Skip defaults 
F4 AD D4 b3¢3 494 CLRL hescr ; No flags Ynitially 
CC AD 02 DO 0347 495 MOVL i 8 DEE ; Digits in exponent 
DO AD D4 8 48 $38 CLRL _BICFP) ; Digits ia euneeger 
D4 AD D4 4—E 49 CLRL sb1tre) ; Scale 
C8 AD 4 8 51 498 CLRL S_DF (FP) 5 goats oy fraction 
o 02 <« of 54 499 CASEB (AP), #2, #5 ; Select on number of arguments 
0030' 0358 500 18: . WORD g0s-{s i ¢ arguments 
Ope. 5A 501 «WORD 0$-1$ : 3 arguments 
0026" 035C 206 «WORD 40$-1$ ; 4 arguments 
0016" 035 50 «WORD 50$-1$ :; 5 arguments 
0011° 036 504 «WORD 60$-1$ ; 6 arguments 
000C* 036 505 - WORD 70$-1$ ; 7? arguments 
0364 506 fall through ; assume >7 arguments 
F4 AD 1C AC 9A 0364 507 70$: fov76L caller_flags(AP) FLAGS (FP) 
CC AD 18 AC DO 0369 508 60$:  MOVL digitstin_exp(APS, S_DE(FP) 
DO AD 14 AC bO B36 509 50$: MOVL digits_in_int(AP), S-DI(FP) 
D4 AD 10 AC 00 037 510 MOVL scale_factor(AP), S_SCALE(FP) ; 
C8 AD OC AC t Bere 213 ty digitS_in_fract(AP)> S_DF(FP) ; Digits in fraction part 
DO AD 10 AC 00 Hq 513 40$: MOVL scale_factor(AP), S_DI(FP) ; Release 1 meaning 
C8 AD OC AC DO 038 514 30$: MOVL digitS_in_fract(AP)> S_DF(FP)  ; Digits in fraction part 
05 0388 515 20$: RSB 
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vert Real (F, D, G, to Tex 15-SEP=1 oR $3: 749: +33 pearyes Macro V04-00 Page 
ALIZE_F = An nalyze Loam tist for 6-SEP-1984 10:54: FORRTL.SRCIFORCVTRT.MAR; 1 
| 7 ~SBTTL INITIALIZE_F = Analyze argument List for F format 
9 15 ; INITIALIZE_F is performs the same function as INITIALIZE except that 
9 20 ; the scale factor is truly the scale factor and that the digits_in_integer 
4 2| : _and digits_in_exp values are ignored. 
§ 358 
9 4 INITIALIZE_F: 
9 5 CLAL FLAGS (FP) : Wo flags initially 
C § CLRL S_SCALE(FP) cale Tactor 
gf OVL digits in fract(AP), § pk cep : Digits in fraction part 
4 8 CASEB (AP), 93,784 : elect on number of arguments 
98 1$: <WORD 30$-1$ ; 3 arguments 
9A 0 «WORD 40$-1$ : 4 arguments 
9C 1 «WORD 50$-1$ ; 5 arguments 
039 238 -WORD 60$-1$ ; § arguments 
QO3A «WORD 70$-1$ ; 7 arguments 
Bea $0 ; fall through ; assume >7 arguments 
Ae 5 70$: MOVB  caller_flags(AP), FLAGS(FP) 
Q3A 36 60$: 
O3A7 = 5537 50$: 
O3A7 =538 40S: MOVL scale_factor(AP), S_SCALE(FP) 
O3AC 539 30S: RSB 
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ponsevtRt ert Real (F, D, G, H) to Text 1 meh ro V04-00 Page 
1-01 SEP-1984 FORRTL.SRCJFORCVTRT.MAR; 1 


=r 


= Con :49:35 VAX/VMS Mac 
DIGIT Biba i3 L 


v 
$_OUT 
AD 4 -SBTTL DIGITS_OUT 
AD 1 i+ 
. rf ; Routine to format the digits in the output string. 
AD 45 ; The string will be constructed as follows: 
AD 73 : 
AD 47 ; ni blanks, where ni is calculated 
AD 48 ; LEAD_DIGIfS digits 
AD 49 ; a decimal poin 
AD 50 ; LEAD_ZERO zeroes 
ns 51 3 TRAIC_DIGITS digits 
AD 24 3 The sign is inserted where appropriate. If LEAD_DIGITS is 
3AD 54 ; zero, an optional leading zero is inserted if there is 
3AD 23 3 room. 
O3AD 56 ;- 
05a 57 OIGITS_OUT: 
56 EC AD 00 AD 558 MOVL STRING_ADDR(FP), R6 ; Address of first digit 
52 08 BC 7D 0381 559 ova @out_stringiAP), R2 ; Get string descriptor 
52 52 3C 0385 560 MOVZWL R2, R2 
50 52 C4 AD (C3 0388 # 561 SUBL LEAD_DIGITS(FP), R2, RO : Find leading blanks 
50 CO AD C2 038D 26¢ SUBL2 LEAD-ZERO(FP), RO 
50 BC AD Ce 03C1 56 SUBL2 TRAIC_DIGITS(FP), RO 
D8 AD 95 O03C5 564 TSTB EXP_LETTER(FP) ; F format? 
07 «#13 #O3¢8 565 BEQL 10$ : Yes 
50 CC AD C2 OQ3CA 566 SUBL2 S_DE(FP), RO 
50 02 Ce O3CE 567 SUBL2 #2, RO ; Compensate for exponent 
EB AD D5 0Q3D1 568 10$ TSTL SIGN(FP) ; Negative? 
05 19 0304 569 BLSS 15$ : Yes 
02 F4 AD 00 €1 0306 570 BBC #V_FORCEPLUS, FLAGS(FP), 20$ :; Force plus sign? 
50 4D? 0308 571 15$: DECL RO ; Use another character 
50 07 O3D0 278 208: DECL RO : For decimal point 
66 19 O3DF 57 BLSS ERROR ; No room left 
57 50 09 O3E1 574 MOVL RO, R7 
06 13 0364 575 BEQL 228 ; Skip if no blanks 
83 20 90 O366 576 218: MOVB #*A/ /, (R3)+ ; Insert leading blanks 
FA 50 FS O3E9 577 SOBGTR RO, 21$ : Loop till done 
E8 AD D5 OSEC 578 228: TSTL SIGN(FP) 3; Negative? 
OA 19 OSEF 579 BLSS 25$ : Yes 
08 F4 AD O00 €1 O3F1 580 BBC ay FORCEPL YS « FLAGS(FP), 30$ ; Force + sign? 
83 2B 90 O3F6 581 MOVB #*°R/+/, (R3)+ ; Yes 
03 11 O3F9 256 BRB 30$ 
83 2D 90 O3FB 58 $23: MOVB #*A/-/, (R3)+ ; Minus sign . 
C4 AD DS HA 286 O$: TSTL LEAD_DIGITS (FP) : Check for leading zero 
22 14 0401 5 BGTR 40$ ; Not necessary 
BC AD D5 0403 286 TSTL TRAIL_DIGITS(FP) 3; Required? 
0B 14 Bebe BGTR ; No 
CO AD 85 040 8 TSTL tml ; Required? 
96 14 0408 9 BGTR $ ; No 
DS 040D 90 TSTL R7 : Is there room? 
360615) «(4 0F 23) BLEQ RROR ; No 
4 11 0411 38 BRB 7$ ; Put it in 
7 {3 $12 935 35$: TSTL R7 ; Is there room? 
of 1 4) 94 BLEQ 40$ ; No, skip it 
20 91 0417 95 378 CMPB ~(R3), M*A/ / ; Is last char a blank? 
04 13 OQ41A 238 BEQL #8$ ; Yes, dont move it 
FF AS 63 90 Q41C 9 MOVB (R3), -1(R3) ; Move sign 
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FORSCVTRT - Convert Real (F, D, G, H) to Text 15-SEP-1984 23:49: AX/VMS Macro V04-00 
eit DIGITS_OUT Fan ets 1 1Bidei3 YRORRTL. SREIFORCVTRT MAR: 1 
83 38 90 04 238 38$: MOVB #*A/0/, (R3)+ : Insert zero 
11 4 9 BRB 
63 66 5 C4 ao 28 r ; at 40$: Eaves LEAD_DIGITS(FP), (R6), (R3) ; Move leading digits 
a3 2E 3 420 60¢ 42$: MOVB w°As./ (R3)+ ; Move decimai point 
50 CO AD 00 430 6 MOVL FAD_ZEROCFP) RO : Insert leading zeroes 
ee 434 604 BLEQ $ ; Skip if none 
83 8 Pe 04 § 605 45$: MOVB #*A/0/, (R3)+ ; Move a zero 
FA F 4 On6 SOBGTR RO, 4 ; Loop till done 
50 BC AD it 4 607 50$: MOVL TRAIL _DIGITS(FP), RO ; Move trailing digits 
"Fs 1 44 608 BLEQ $ ; Skip if none 
63 66 0 ee ee 09? MOVCS RO, (R6), (R3) ; Move trailing digits 
44 610 60$: RSB 3; Return 
044 611 
0447 $16 ERROR: 
50 7D 0447 61 mova aout esr tnas) RO 
61 50 2A 6E 00 2C 0448 614 MOVCS TSP) “A/«/, RO, (R1) 
50 00000000'8F 00 0451 615 MOVL § #FORS_OUTCONERR, RO 
04 0458 616 RET 
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= Convert Real (F, D, G, H) to Text 
FINI 


618 .SBTTL FINISH 
619 ; 

620 ; 

621 :- 

é : FINISH 

t ova 

$68 MOVZ2WL RO, R 
625 ADDL2 RO, R1 
626 SUBL2 R3, R 
627 BEQL EXIT 
628 108: MOVB = #*A/ 
6¢9 SOBGTR R1, 1 
630 EXIT: MOVL #1, R 
631 RET 

63¢ 

63 

634 


o 
FINISH blank fills the remainder of the 


@out_string(AP), RO 


pee Macro V04-00 Page 17 
FORRTL.SRCJFORCVTRT.MAR; 1 (10). 


string and returns to the caller. 


; Get string descriptor 


Find last character 
Subtract characters used 
If none left, exit 

Move a blank 

Loop till done 
$S$_NORMAL 
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FORSCVTRT - Convert Real (F, 5 Heh S 1 93:82:32 AX/VMS ae cro V04-00 Page 19 
Psect synopsis 6-SEP=1984 10:54:25 LCFORRTL.SR CIF ORCVTRT.MAR; 1 (10) | 
pore one mi weet eoee + 
! ; Psect synopsis ! 
PSECT name Allocation PSECT No. Attributes 
o OS 0000 0009 ¢ 8} 89 f 9} NOPIC  USR CON ABS LCL NOSHR NOEXE NORD NOWRT NOVEC BYTE 
_FORSCODE 00004 ( 113 1 ¢ . PIC  USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 
eee mean ew ome ama wate manor a= } 
H \ Performance indicators H 
Phase Page faults CPU Time Elapsed Time 
Initialization 33 00:00:00.1 0:00:00.52 
Command processing 117 $B 00:0 “49 09:00: 08.44 
Pass 99 B8: 8 18 Bes :05.71 
Symbol table sort 0:00: +98 839020918 
Pass 2 12 00:00:01.39 00:00:04.2 
Symbol table output 7 00:00: 8-38 ab Ss 4 
Psect synopsis output 3 00:00:00. 0:00:00.04 
Cross-reference output 0 00:00: 2-9 00:00:00.00 
Assembler run totals 386 00:00:04.31 00:00:14.16 


The working set Limit was 1050 pages. 
13377 bytes (27 pages) of virtual memory were used to buffer_the intermediate code. 


There were 10 pages of symbol table space yy to hold 71 non-local and 46 Local symbols. 


object records in Pass 2. 


634 source Lines were read in Pass 1, produci "t 
macros. 


0 pages of virtual memory were used to define 


Macro Library name 


$2552DUA28: CSYSLIBISTARLET.MLB;2 0 
O GETS were required to define 0 macros. 


There were no errors, warnings or information messages. 
MACRO/ENABLE =SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:FORCVTRT/OBJ=OBJ$:FORCVTRT 


MSRC$:FORCVTRT/UPDATE=(ENH$:FORCVTRT) 


~~ 
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